home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
TBUTIL1.LZH
/
READPSP1.INC
< prev
next >
Wrap
Text File
|
1984-07-13
|
323b
|
22 lines
PROCEDURE checkpsp;
VAR
i,n : INTEGER;
BEGIN
psp := '';
was_psp := FALSE;
n := MEM[cseg:$0080];
IF n <> 0 THEN
BEGIN
was_psp := TRUE;
FOR i := 2 TO n DO
psp := CONCAT(psp,CHR(MEM[cseg:i+$80]) );
END;
{ writeln(psp,LENGTH(PSP):10);
delay(2000);}
END;